home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2005 February
/
CMCD0205.ISO
/
Software
/
Freeware
/
Multimedia
/
SubtitleWork
/
SubtitleWorkshop251.exe
/
PascalScripts
/
Delete subtitle (only from translation).pas
next >
Wrap
Pascal/Delphi Source File
|
2004-02-10
|
700b
|
40 lines
// Delete subtitle (only from translation). Made by Bedazzle.
program ShiftSubs;
// -----------------------------------------------------------------------------
var
n: Integer;
s: Boolean;
i: Integer;
it: Integer;
ft: Integer;
curr: Integer;
txt: String;
begin
n := GetSubtitleCount;
s := false;
for i := 1 to GetSubtitleCount do
begin
if (s = false) then
begin
if (IsSubtitleSelected(i) = true) then
begin
curr := i;
break;
end;
end;
end;
for i := curr to GetSubtitleCount-1 do
begin
txt := GetSubtitleTrans(i+1);
SetSubtitleTrans(i, txt);
end;
end.